program ArrayOf100;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  arr = array [0..99] of integer;

var
  i: integer;
  a: ^arr;

begin
  new (a);
  a^[0]:=1;
  for i:=1 to 99 do
    a^[i]:= a^[i-1]+1;
  //for i:=0 to 99 do
  //  writeln (a^[i]);
  dispose (a);
  //readln;
end.
